Collection of Tools & Utilities/Collection of Tools and Utilities.iso/ada/gwuada_5.zip/adaed/spider/draw10.ada

Text File | 1993-02-04 | 224b | 19 lines

WITH Spider; USE Spider;
PROCEDURE Drawing10 IS
BEGIN
Start;
Red;
WHILE NOT AtWall LOOP
     Step;
END LOOP;
Black;
Turn;
Step;
Turn;
Green;
WHILE NOT AtWall LOOP
     Step;
END LOOP;
Quit;
END Drawing10;